home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
326-350
/
disk_330
/
xprkermit
/
libface.asm
< prev
next >
Wrap
Assembly Source File
|
1992-05-06
|
2KB
|
117 lines
;;; libface.c
;
; DESCRIPTION:
; ===========
;
; This is the skeleton for an Amiga Exec library.
; This version is written for Aztec C. It is based on the example
; library by Jim Mackraz who got some stuff from Neil Katin.
; This library implements a protocol transfer library.
; All changes and additions by me.
;
; AUTHOR/DATE: W.G.J. Langeveld, February 1989.
; ============
;
;;;
include 'exec/types.i'
setup macro
movem.l d2/d3/d4-d7/a2-a6,-(sp)
jsr _geta4 ;set up a4 for small model
endm
push macro
move.l \1,-(sp)
endm
fix macro
ifc '\1',''
mexit
endc
ifle \1-8
addq.l #\1,sp
endc
ifgt \1-8
lea \1(sp),sp
endc
endm
restore macro
fix \1
movem.l (sp)+,d2/d3/d4-d7/a2-a6
rts
endm
dseg
public _libfunctab
_libfunctab:
dc.l XPRopen
dc.l XPRclose
dc.l XPRexpunge
dc.l $0000
dc.l XPRXProtocolCleanup
dc.l XPRXProtocolSetup
dc.l XPRXProtocolSend
dc.l XPRXProtocolReceive
dc.l $ffffffff
cseg
;--- library functions
public _XPROpen
public _XPRClose
public _XPRExpunge
public _XProtocolCleanup
public _XProtocolSetup
public _XProtocolSend
public _XProtocolReceive
public _geta4
XPRopen:
setup
push a6
jsr _XPROpen
restore 4
XPRclose:
setup
push a6
jsr _XPRClose
restore 4
XPRexpunge:
setup
push a6
jsr _XPRExpunge
restore 4
XPRXProtocolCleanup:
setup
push a0
jsr _XProtocolCleanup
restore 4
XPRXProtocolSetup:
setup
push a0
jsr _XProtocolSetup
restore 4
XPRXProtocolSend:
setup
push a0
jsr _XProtocolSend
restore 4
XPRXProtocolReceive:
setup
push a0
jsr _XProtocolReceive
restore 4
end